10 IFPEEK(49234)<>ASC("S")THENLOAD" SPRITE*",8,1
20 SYS49152
100 POKE650,128:PRINT"[147][155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
110 PRINT" *** SPRITE-GRAPHICS - TIMER-SETUP *** "
120 POKE53280,6:POKE53281,6:!TC0,4,8,8,15
130 !GR1;GX144;GY74;GC8;GE;GI
132 !TF15,3,24,22,160;TC15,3,24,22,2:GOSUB50000
140 PY=0:YT=0
150 FORI=0TO7:DL(I)=PEEK(50911+I):!TP0,4+I,I":"DL(I):NEXT
160 PRINT"[155]SELECT NO.":PRINT"[154]  CRSR UP/DOWN"
165 PRINT"[155]CHANGE VALUE":PRINT"[154]  + / -"
170 PRINT"[155]MOVE GRAPHIC":PRINT"[154]  F7/F8"
175 PRINT"[155]EXIT PROGRAM":PRINT"[154]  X"
200 !TN0,4,8,8;TX0,4,8,8,96,32;TR0,4+PY,8,1;GY 74+YT
210 WAIT198,63:GETI$:I=1
220 IFI$<>MID$("[145]+-[136][140]X",I,1)THENI=I+1:IFI<8THEN220
230 IFI=8THEN210
240 ONIGOTO250,260,800,900,300,350,400
250 PY=PY+1:IFPY>7THENPY=7
255 GOTO200
260 PY=PY-1:IFPY<0THENPY=0
265 GOTO200
300 YT=YT+1:IFYT>7THENYT=0
310 GOTO200
350 YT=YT-1:IFYT<0THENYT=7
360 GOTO200
400 !GR0:PRINT"[147]NEW"
410 PRINT"1000 FOR I=0[160]TO 6:READ[160]W:POKE 50911+I,W:POKE 50912+I,W:NEXT"
420 PRINT"1010 READ W:POKE 50918,W"
430 PRINT"1020 DATA";:FORI=0TO6:PRINTDL(I)"[157],";:NEXT:PRINTDL(7)
440 PRINT"DIESE ZEILEN MUESSEN SIE IN IHR PROGRAMM";
450 PRINT"EINBINDEN, UM DIE NEUEN DELAY-ZEITEN ZU"
460 PRINT"INITIALISIEREN.";:END
800 DL(PY)=DL(PY)+1:IFDL(PY)>31THENDL(PY)=31
810 !TP0,4+PY,"[155]"PY":"DL(PY)
820 POKE50911+PY,DL(PY):IFPY<7THENPOKE50919+PY,DL(PY):GOTO200
900 DL(PY)=DL(PY)-1:IFDL(PY)<10THENDL(PY)=10
910 GOTO810
50000 REM TESTBILD ERZEUGEN
50010 !DS 130,68,40,16,40,68,130,1
50020 !DM 0
50030 FORI=0TO3:!DB24*I,0,7,168:NEXT
50035 !DS 255,0,255,0,255,0,255,0
50040 FORI=0TO3:!DB8+24*I,0,7,168:NEXT
50050 !DS 17,17,34,34,68,68,136,136
50060 !DM 3
50070 FORI=0TO3:!DB16+24*I,0,7,168:NEXT
50080 RETURN